proc Destroy_All_Object {} {

foreach obj [gmlObject info objects] {
catch "$obj dispose"

}


}